home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / C and C++ / Libraries / Effect library / Demo ƒ / Reversed wipes ƒ / Full scroll up.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-01-11  |  2.3 KB  |  70 lines  |  [TEXT/KAHL]
  1. /**********************************************************************\
  2.  
  3. File:        Full scroll up.c
  4.  
  5. Purpose:    Graphic effect from offscreen bitmap to main window (on
  6.             screen).  See comments below for more description.
  7.  
  8.  
  9. MSG Demo -- graphic effects demonstration program
  10. Copyright (C) 1992-4 Mark Pilgrim & Dave Blumenthal
  11.  
  12. This program is free software; you can redistribute it and/or modify
  13. it under the terms of the GNU General Public License as published by
  14. the Free Software Foundation; either version 2 of the License, or
  15. (at your option) any later version.
  16.  
  17. This program is distributed in the hope that it will be useful,
  18. but WITHOUT ANY WARRANTY; without even the implied warranty of
  19. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20. GNU General Public License for more details.
  21.  
  22. You should have received a copy of the GNU General Public License
  23. along with this program in a file named "GNU General Public License".
  24. If not, write to the Free Software Foundation, 675 Mass Ave,
  25. Cambridge, MA 02139, USA.
  26.  
  27. \**********************************************************************/
  28.  
  29. #include "msg timing.h"
  30.  
  31. #define CorrectTime 3
  32. #define theWindowHeight (boundsRect.bottom-boundsRect.top)
  33. #define theWindowWidth (boundsRect.right-boundsRect.left)
  34.  
  35. pascal short FullScrollUp(GrafPtr sourceGrafPtr, GrafPtr destGrafPtr, Rect boundsRect);
  36.  
  37. /* Take the full screen minus the top strip, move it into the whole screen
  38.    shifted up by BoxSize, then take the topmost source strip and put it
  39.    in the bottom strip of the dest. window. */
  40.    
  41. pascal short FullScrollUp(GrafPtr sourceGrafPtr, GrafPtr destGrafPtr, Rect boundsRect)
  42. {
  43.     int            x, y;
  44.     Rect        theRect, dest;
  45.     int            BoxSize;
  46.     
  47.     BoxSize=theWindowHeight/25;
  48.     
  49.     dest = boundsRect;
  50.     dest.top=dest.bottom-BoxSize;                /* bottom strip for new data */
  51.     
  52.     SetRect(&theRect, boundsRect.left, boundsRect.top, boundsRect.right, boundsRect.top+BoxSize);
  53.     
  54.     for(x = theWindowHeight - BoxSize; x >= 0; x -= BoxSize)
  55.     {
  56.         StartTiming();
  57.         ScrollRect(&boundsRect, 0, -BoxSize, 0L);
  58.         CopyBits(&(sourceGrafPtr->portBits), &(destGrafPtr->portBits),
  59.                 &theRect, &dest, 0, 0L);
  60.         theRect.bottom+=BoxSize;
  61.         theRect.top+=BoxSize;
  62.         TimeCorrection(CorrectTime);
  63.     }
  64.     
  65.     CopyBits(&(sourceGrafPtr->portBits), &(destGrafPtr->portBits),
  66.         &boundsRect, &boundsRect, 0, 0L);
  67.     
  68.     return 0;
  69. }
  70.